/**
 * Perform the element default action.
 *
 * @param {JSEvent} event the event that triggered the action
 *
 * @properties={typeid:24,uuid:"B8F3DDAE-9D57-40CB-8E27-C09D0A95508A"}
 * @AllowToRunInFind
 */
function continuar(event) {
	
	elements.errores.removeAllTabs()
	var res = globals.chequeaVariables()
	if (res[0] == 1)
	{
		globals.DIALOGS.showWarningDialog('Aviso','Error en variables globales : '+res[1],'OK')
		return
	}

	var $tipo_asiento = 9
	if (globals.control_asientos_prov($tipo_asiento,globals.gMesAsientos,globals.gAnioAsientos) == 0 )
	{
		return
	}

	/** @type {JSFoundSet<db:/contable/asiento_prov_cab>}*/
	var $provisorio = databaseManager.getFoundSet('contable','asiento_prov_cab')
	/** @type {JSFoundSet<db:/infocom/ctacte_pr>}*/
	var $cta_cte 	= databaseManager.getFoundSet('infocom','ctacte_pr')
	var $cols		= ['fecha','documento','error']
	var $errores 	= databaseManager.createEmptyDataSet( 0, $cols )
	
	if ($cta_cte.find()== false)
	{
		globals.DIALOGS.showWarningDialog('Aviso','Ocurrió un error al buscar movimientos','OK')
		return
	}
	
	var $fecha_desde 	= new Date(globals.gAnioAsientos, globals.gMesAsientos-1,1,0,0,0,0)
	var $fecha_hasta 	= new Date(globals.gAnioAsientos, globals.gMesAsientos,0,23,59,59,996)
	var rango 			= utils.dateFormat($fecha_desde,'dd-MM-yyyy') + '...'+ utils.dateFormat($fecha_hasta,'dd-MM-yyyy')
	$cta_cte.fecha_mov 	= '#' + rango + '|dd-MM-yyyy'
	
	$cta_cte.ctacte_pr_to_tab_mov_pr.tipo_asiento_id = $tipo_asiento
	
	if ($cta_cte.search() == 0)
	{
		globals.DIALOGS.showWarningDialog('Aviso','No se encontraron movimientos con esas condiciones','OK')
		return
	}
	databaseManager.setAutoSave(false)	
	var $cant = databaseManager.getFoundSetCount($cta_cte)

	for (var i = 1 ; i <= $cant ; i++)
	{
		var $rcd = $cta_cte.getRecord(i)
		
		if ($cta_cte.ctacte_pr_to_op_cabecera.getSize() != 1)
		{
			var error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), 'Egre. - '+ $rcd.letra + '-'+$rcd.sucursal+'-'+$rcd.nro_factura+' - '+$rcd.concepto, 'Error en relacion entre cta cte y orden de pago')
			$errores.addRow(error)
		}
		else
		{
			tipoAsiento_9($rcd , $provisorio,'Pago',$errores, $tipo_asiento)
		}
	}
	if ($errores.getMaxRowIndex() > 0)
	{
		var $fecha_hoy 	= utils.dateFormat(new Date(),'dd-MM-yyyy')
		var $periodo	= 'Desde ' + utils.dateFormat($fecha_desde,'dd-MM-yyyy') + ' hasta '  + utils.dateFormat($fecha_hasta,'dd-MM-yyyy')
		var $titulo		= 'Asiento Pagos Proveedores - ' + $periodo + ' - Fecha Proceso ' + $fecha_hoy
		globals.crearFormErrores('asiento_pagos_prov_9',$errores,$cols,$titulo)
	}
	databaseManager.startTransaction()
	if (databaseManager.saveData()) 
	{
		databaseManager.setAutoSave(true)
		databaseManager.commitTransaction()
	}
	else
	{
		databaseManager.rollbackTransaction()
		globals.DIALOGS.showWarningDialog('Aviso','Ocurrió un error al intentar grabar los cambios. El proceso está incompleto','OK')
	}
}

/**
 * @param {JSRecord<db:/infocom/ctacte_pr>} $rcd
 * @param {JSFoundSet<db:/contable/asiento_prov_cab>} $provisorio
 * @param {String} $texto
 * @param {JSDataSet} $errores
 * @param {Number} $tipo_asiento
 * 
 * @properties={typeid:24,uuid:"5C2D86F0-4259-4450-9CD2-59718E3B757B"}
 */
function tipoAsiento_9($rcd , $provisorio, $texto, $errores, $tipo_asiento)
{
	$provisorio.newRecord()
	
	$provisorio.moneda 				= 'P'
	$provisorio.moneda_carga		= 1
	$provisorio.hizo 				= globals.gUsuarioID
	$provisorio.tipo_actualizacion 	= globals.z_conf_asiento_normal
	$provisorio.empresa				= globals.gUservID
	$provisorio.fecha 				= $rcd.fecha_mov
	$provisorio.texto 				= $texto + ' - '+ $rcd.letra + '-'+$rcd.sucursal+'-'+$rcd.nro_factura+' - '+$rcd.concepto
	$provisorio.subdiario_id 		= 4  // egresos
	$provisorio.mes					= $rcd.fecha_mov.getMonth()+1
	$provisorio.anio				= $rcd.fecha_mov.getFullYear()
	$provisorio.tipo_asiento_id 	= $tipo_asiento
	
	globals.gtotal_asiento = null
	var $dtls = obtenerDetalles($rcd, $errores, $provisorio.texto)
	$provisorio.total = globals.gtotal_asiento	
	
	for (var i = 0 ; i < $dtls.length ; i++)
	{
		var det = $provisorio.asiento_prov_cab_to_asiento_prov
		
		det.newRecord()
		
		det.columna 	= $dtls[i][0]
		det.cuentas_id 	= $dtls[i][1]
		det.importe 	= $dtls[i][2]
		det.numero		= 0  // $provisorio.numero  31/05/2011
		det.empresa		= globals.gUservID
		det.centro		= 1
		det.division	= 1
		det.leyenda		= ''
		det.mes			= $provisorio.mes 
		det.anio		= $provisorio.anio
	}
}

/**
 * @param {JSRecord<db:/infocom/ctacte_pr>} $rcd
 * @param {JSDataSet} $errores
 * @param {String} $texto
 * 
 * @return {Object}
 * @properties={typeid:24,uuid:"266A9CB0-F00D-4025-9C0D-9882C437B438"}
 */
function obtenerDetalles($rcd, $errores, $texto)
{
	var dtls = new Array()
	var tot_d = 0
	var tot_h = 0
	var letra 		= 'D'
	var contrario 	= 'H'
	var cta
	var error
	
	if ($rcd.ctacte_pr_to_tab_mov_pr.d_h == 1)
	{
		letra 		= 'H'
		contrario 	= 'D'
	}

	var $ret = $rcd.ctacte_pr_to_op_cabecera.op_cabecera_to_op_retenciones
	var $det = $rcd.ctacte_pr_to_op_cabecera.op_cabecera_to_op_detalle
	
	if ($det == null) 
	{
		error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'Error: no existe detalle para ese Oed de pago')
		$errores.addRow(error)
		return -1
	}
	var $ctos = databaseManager.getFoundSetCount($ret)
	for (var i = 1 ; i <= $ctos ; i++)
	{
		$ret.setSelectedIndex(i)
		cta = 999999
		if ($ret.op_retenciones_to_retenciones.getSize() != 0)
		{
			if ($ret.op_retenciones_to_retenciones.plancta_id == null)
			{
				error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'Cuenta contable no cargada en retenciones codigo=' + $ret.retenciones_id)
				$errores.addRow(error)
			}
			else
				cta = $ret.op_retenciones_to_retenciones.plancta_id 
		}
		else   
		{
			error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'No existe relacion entre op_retenciones y retenciones')
			$errores.addRow(error)
		}
	
		var imp = $ret.importe
		tot_h += imp
		dtls[dtls.length] = new Array(letra, cta, imp)
	}
	
	$ctos = databaseManager.getFoundSetCount($det)
	for (var i = 1 ; i <= $ctos ; i++)
	{
		$det.setSelectedIndex(i)

		cta = 999999
		if ($det.op_detalle_to_cuentas_cyb.getSize() != 0)
		{
			if ($det.valor_id == 5 || $det.valor_id == 4)   //  07/06/2012
			{
				if($det.op_detalle_to_cuentas_cyb.plancta_id_val_difer == null) 
				{
					error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'Cuenta contable valores difer. no cargada en cuentas_cyb codigo=' + $det.cuentas_cyb_id)
					$errores.addRow(error)
				}
				else
					cta = $det.op_detalle_to_cuentas_cyb.plancta_id_val_difer
			}	
			else				
			{	
				if ($det.op_detalle_to_cuentas_cyb.plancta_id == null)  
				{
					error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'Cuenta contable no cargada en cuentas_cyb codigo=' + $det.cuentas_cyb_id)
					$errores.addRow(error)
				}
				else
					cta = $det.op_detalle_to_cuentas_cyb.plancta_id	
			}	
		}
		else    
		{
			error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'No existe relacion entre op_detalle y cuentas_cyb')
			$errores.addRow(error)
		}	


		imp = $det.importe
		tot_h += imp
		// dtls[dtls.length] 	= new Array(contrario, cta, imp)  //  31/05/2012
		dtls[dtls.length] 	= new Array(letra, cta, imp)
	}
	

	var imp = $rcd.ctacte_pr_to_op_cabecera.total_valores + $rcd.ctacte_pr_to_op_cabecera.total_retenciones 
	cta = 999999
	if ($rcd.ctacte_pr_to_proveedor)  
	{
		if($rcd.ctacte_pr_to_proveedor.plancta_id == null) 
		{
			error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'Cuenta contable no cargada en el proveedor - ' + $rcd.proveedor_id + ' - ' + $rcd.ctacte_pr_to_proveedor.razon_social)
			$errores.addRow(error)
		}
		else
			cta = $rcd.ctacte_pr_to_proveedor.plancta_id
	}
	else 
	{
		error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'No existe relacion entre cuentas_pr y proveedor')
		$errores.addRow(error)
	}
	tot_d += imp
	dtls[dtls.length] = new Array(contrario, cta, imp)

	if(Math.abs(tot_h - tot_d) > 0.00999999999)  
	{
		error = new Array(utils.dateFormat($rcd.fecha_mov,'dd-MM-yyyy'), $texto, 'Debe distinto a haber')
		$errores.addRow(error)
	}
	else //  05/07/2012
		globals.gtotal_asiento=tot_d //  05/07/2012
	return dtls
}
